("Thai"): Set a lisp form that produces

composed string in `sample-text' language info.

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index addb4381e6df4f90c4d2f58bd74634e1163f03bf..17b62619be6fed7af04267b86d1d91965ef8fd77 100644 (file)
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -49,7 +49,9 @@
          (input-method . "thai-kesmanee")
          (unibyte-display . thai-tis620)
          (features thai-util)
-         (sample-text . "Thai (\e,T@RIRd7B\e(B)          \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")
+         (sample-text 
+          . (thai-compose-string
+             (copy-sequence "Thai (\e,T@RIRd7B\e(B)              \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")))
          (documentation . t)))